Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_17 / skidpan.bas (.txt) < prev

Wrap

Atari STOS Basic | 1987-04-21 | 196KB | 282 lines

1 MODE 10 VARNAME 100 INK 1000 VARNAME 105 VARNAME 110 TIMER 1100 OPEN 1110 FOR 1120 IF 1121 IF 1130 NEXT 1140 CLOSE 115 GOSUB 1150 RETURN 120 VARNAME 1200 PRINT 121 VARNAME 1210 PRINT 1220 PRINT 1230 INPUT 1240 RETURN 125 LIMIT SPRITE 1250 INPUT 126 IF 1260 PRINT 1270 PRINT 1280 RETURN 130 VARNAME 1300 OPEN 1310 IF 1320 CLOSE 1330 RETURN 1340 OPEN 135 INC 1350 IF 136 VARNAME 1360 IF 1370 CLOSE 1380 RETURN 140 VARNAME 1400 FOR 145 IF 15 VARNAME 150 VARNAME 155 IF 16 VARNAME 160 VARNAME 165 VARNAME 170 IF 175 IF 180 IF 185 IF 187 IF 188 IF 190 VARNAME 195 IF 2 VARNAME 20 VARNAME 200 DEC 205 IF 210 IF 211 VARNAME 212 IF 213 IF 214 IF 215 IF 220 IF 224 VARNAME 225 IF 231 TIMER 233 IF 235 VARNAME 236 VARNAME 238 IF 240 IF 241 IF 245 GOTO 25 MODE 250 VARNAME 252 VARNAME 253 IF 255 IF 256 RETURN 259 VARNAME 26 DIM 260 RETURN 265 VARNAME 266 IF 267 IF 268 IF 269 IF 27 DIM 270 VARNAME 271 VARNAME 273 SCREEN COPY 275 INC 280 LOCATE 285 RETURN 290 VARNAME 291 IF 292 IF 293 INC 294 IF 295 IF 296 IF 297 IF 298 IF 299 RETURN 3 GOSUB 30 DIM 300 REM select car 301 MODE 302 INK 305 GOSUB 306 FOR 31 FOR 310 SPRITE 315 VARNAME 316 VARNAME 317 VARNAME 318 VARNAME 319 VARNAME 32 FOR 320 GOSUB 321 GOSUB 322 SPRITE 33 DATA 330 FOR 34 DIM 340 SHOW 342 WHILE 343 IF 344 IF 345 IF 35 FOR 350 WEND 351 IF 355 IF 356 HIDE 357 UPDATE 36 DATA 360 RETURN 38 DIM 39 VARNAME 390 VARNAME 392 VARNAME 4 VARNAME 40 DATA 400 REM 401 VARNAME 402 VARNAME 405 VARNAME 406 IF 407 IF 408 IF 41 DATA 410 VARNAME 415 IF 416 IF 418 IF 42 DATA 420 VARNAME 421 IF 422 IF 423 IF 424 IF 425 IF 426 VARNAME 43 DATA 436 VARNAME 44 DATA 440 IF 441 IF 442 IF 45 DIM 450 INC 451 RETURN 460 VARNAME 461 VARNAME 462 IF 465 IF 469 RETURN 490 VARNAME 491 IF 492 IF 493 INC 494 IF 495 IF 496 IF 497 IF 498 IF 499 RETURN 5 VOLUME 50 FOR 500 REM collision 504 FOR 505 IF 510 NEXT 515 RETURN 520 LOCATE 521 RETURN 55 DATA 6 NOISE 60 DATA 600 REM set up cars 601 FOR 602 IF 603 IF 605 FOR 606 VARNAME 607 NEXT 610 FOR 611 VARNAME 615 NEXT 620 VARNAME 625 IF 626 IF 627 IF 628 IF 630 RETURN 640 VARNAME 65 DATA 70 DATA 700 LOCATE 701 WAIT KEY 702 MODE 705 WAIT KEY 71 DATA 710 GOTO 72 DATA 73 DATA 74 DATA 75 DATA 750 WAIT KEY 751 VARNAME 752 FOR 753 NEXT 754 NEXT 760 MODE 761 IF 765 WAIT KEY 79 FOR 80 DATA 800 VARNAME 810 VARNAME 820 VARNAME 830 VARNAME 840 GOTO 841 RETURN 85 DIM 850 VARNAME 860 VARNAME 861 FOR 862 NEXT 863 VARNAME 870 VARNAME 871 VARNAME 872 RETURN 875 VARNAME 876 VARNAME 880 INC 881 VARNAME 90 DATA 900 REM track editor 901 UPDATE 905 MODE 906 INK 91 GET PALETTE 910 FOR 915 FOR 920 VARNAME 93 GOSUB 95 GET PALETTE 950 VARNAME 951 VARNAME 952 IF 953 IF 954 IF 955 IF 990 WEND 999 RETURN